﻿Namespace Tools
    Public Class clsHexFunctions
        Public Shared Function HexIncrement(ByVal sHexValue As String) As String
            Dim iValue As Integer = CInt("&H" + sHexValue)
            iValue += 1

            Return iValue.ToString("X")
        End Function
    End Class
End Namespace
